home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / clisp_c.zoo / screen.fas < prev    next >
Text File  |  1993-06-05  |  1KB  |  27 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SCREEN")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  4. #Y(#:TOP-LEVEL-FORM-3 #12Y(00 00 00 00 00 01 D4 D5 30 01 19 01)
  5.    (MAKE-WINDOW WINDOW-SIZE WINDOW-CURSOR-POSITION SET-WINDOW-CURSOR-POSITION
  6.     CLEAR-WINDOW CLEAR-WINDOW-TO-EOT CLEAR-WINDOW-TO-EOL DELETE-WINDOW-LINE
  7.     INSERT-WINDOW-LINE HIGHLIGHT-ON HIGHLIGHT-OFF WINDOW-CURSOR-ON
  8.     WINDOW-CURSOR-OFF
  9.    )
  10.    "SCREEN"
  11.   )
  12. #Y(#:TOP-LEVEL-FORM-4 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SCREEN")
  13. #Y(#:TOP-LEVEL-FORM-5 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  14.    (MAKE-WINDOW WINDOW-SIZE WINDOW-CURSOR-POSITION SET-WINDOW-CURSOR-POSITION
  15.     CLEAR-WINDOW CLEAR-WINDOW-TO-EOT CLEAR-WINDOW-TO-EOL DELETE-WINDOW-LINE
  16.     INSERT-WINDOW-LINE HIGHLIGHT-ON HIGHLIGHT-OFF WINDOW-CURSOR-ON
  17.     WINDOW-CURSOR-OFF WITH-WINDOW *WINDOW*
  18.   ))
  19. #Y(#:TOP-LEVEL-FORM-6 #11Y(00 00 00 00 00 01 D4 2F 5F 19 01) (SPECIAL *WINDOW*)
  20.   )
  21. #Y(#:TOP-LEVEL-FORM-7
  22.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) WITH-WINDOW
  23.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  24.    #Y(WITH-WINDOW
  25.       #22Y(00 01 00 01 00 08 8C 02 D4 D5 D6 D7 96 72 D8 6B 02 1F 59 03 19 04)
  26.       LET ((*WINDOW* (MAKE-WINDOW))) UNWIND-PROTECT PROGN ((CLOSE *WINDOW*))
  27.   )  )